home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Apple / Mac Electronic Ref / Mac Electronic Reference 4.cpt / Mac Electronic Reference 4 / Glossary sounds S-Z / stack_-1.xml < prev   
Extensible Markup Language  |  1991-09-10  |  3KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3663</cardID>
  8.     <listID>2684</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>256</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>-- This stack uses many of the routines in the Macintosh Reference stack.--‚Ä¢‚Ä¢ SYSTEM MESSAGESon openStackstartTemplatepass openStackend openStackon resumeStackstartTemplatepass resumeStackend resumeStackon openCardglobal HelpTextClicksMRput 0 into HelpTextClicksMR -- Initialize this global variable.pass openCardend openCard--‚Ä¢‚Ä¢ MESSAGE HANDLERSon startTemplate-- Ensure that the main stack is being used.global MrBigInfoset cursor to watchput line 1 of MrBigInfo into mainStack-- mainStack is the full path name of the main stack.-- ‚àÜ In the next statement, record generic short name of main stack.put "Macintosh Reference" into genericNameif mainStack is empty then put genericName into mainStackstart using stack mainStackput the result into theResultput false into beingUsed-- These lines border a workaround for a HC bug.get stackNameWithPath(the long name of me)if the stacksInUse contains it thenput true into beingUsedstop using meend if-- These lines border a workaround for a HC bug.if theResult is not empty OR beingUsed thenbeep-- Say that the necessary stack can't be found.answer "You can‚Äôt open ‚Äú" & the short name of me & ¬¨"‚Äù because it needs to use the file ‚Äú" & genericName & ¬¨"‚Äù, which either can‚Äôt be found or is being used by another" && ¬¨"application. When you click OK, you will return to the" && ¬¨"HyperCard Home stack." with "OK" --‚àÜset lockMessages to truedoMenu "Close Stack"-- Go in a new window (in case closing the content stack moved us-- to another different stack).go home in a new windowexit to hypercardend ifput line 1 of the stacksInUse into mainStackLongstoreHelpInfoMR 1,mainStackLongput lastHCItem(":",mainStackLong) into mainStackShortstoreHelpInfoMR 7,mainStackShortend startTemplatefunction stackNameWithPath whichStack-- Return the long name of the current stack without the word "stack"-- and without the quotes.get word 2 of whichStackreturn char 2 to (the number of chars in it - 1) of itend stackNameWithPath</script>
  17.     <background id="3880" file="background_3880.xml" name="Glossary Index" />
  18.     <card id="3663" file="card_3663.xml" marked="false" name="Glossary sounds S-Z" owner="3880" />
  19. </stack>
  20.